home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Amiga Collections: Taifun
/
Taifun 109 (1989-08-15)(Ossowski, Stefan)(DE)(PD).zip
/
Taifun 109 (1989-08-15)(Ossowski, Stefan)(DE)(PD).adf
/
Includes
/
cdir.asm
< prev
next >
Wrap
Assembly Source File
|
1989-02-21
|
2KB
|
134 lines
*LVOs definieren
*---------------
_OpenLibrary=-552
_CloseLibrary=-414
_OpenScreen=-198
_CloseScreen=-66
_ScreenMove=-162
_OpenWindow=-204
_Move=-240
_Text=-60
_Opendevice=-444
_Open=-30
_Close=-36
_Read=-42
_Write=-48
_PolyDraw=-336
_Draw=-246
_Flood=-330
_SetFont=-66
_SetSoftStyle=-90
_SetAPen=-342
_SetBPen=-348
_OpenDiskFont=-30
_MoveSprite=-426
_Translate=-30
_RectFill=-306
_LAPixel=-318
_Delay=-198
_Input=-54
_WaitForChar=-204
_Wait=-318
_GetMsg=-372
_ReplyMsg=-378
_AddFont=-480
_SPAsin=-114
_SPSin=-36
_Forbid=-132
_Permit=-138
_ChangeSprite=-420
_FreeSprite=-414
_GetSprite=-408
_MovSprite=-426_LoadRGB4=-192
_SetRGB4=-288
_SetTaskPri=-300
_OwnBlitter=-456
_DisownBlitter=-462
_Execute=-222
*Macros definieren
*-----------------
CALLGRAF: macro %\nam move.l Gfxbase(pc),a6
jsr \nam(a6)
endm
CALLEXEC: macro %\nam move.l 4,a6
jsr \nam(a6)
endm
CALLINT: macro %\nam move.l Intbase(pc),a6
jsr \nam(a6)
endm
CALLDOS: macro %\nam
move.l Dosbase(pc),a6
jsr \nam(a6)
endm
****************************************************************************
* CDIR (c) by Silicon Generation written by Andreas Uhl *
* Neuer CLI- Befehl: CD'd ins angegebene Directory und zeigt es an *
* (DIR und CD müssen im c-Directory sein) *
****************************************************************************
main subq.l #1,d0
beq nopar
move.l d0,d1
search cmp.b #" ",(a0)+
subq.l #1,d1
bne ypar
dbra d0,search
bra nopar
ypar lea cdtext(pc),a1
subq.l #1,a0
subq.l #1,d1
loop1 move.b (a0)+,(a1)+
dbra d1,loop1
nopar clr.l d0
lea dosname(pc),a1
CALLEXEC _OpenLibrary
tst.l d0
beq fini
move.l d0,dosbase
move.l #cdstring,d1
clr.l d2
clr.l d3
CALLDOS _Execute
move.l #dirstring,d1
clr.l d2
clr.l d3
CALLDOS _Execute
lea cdtext(pc),a0
moveq #99,d0
loop2 clr.b (a0)+
dbra d0,loop2
move.l dosbase(pc),a1
CALLEXEC _CloseLibrary
fini rts
dosbase:
dc.l 0
align.w
dosname dc.b "dos.library",0
align.w
dc.b 0
cdstring:
dc.b "cd "
cdtext ds.b 101,0
align.w
dirstring:
dc.b "dir",0
end